// Testing Five 1.0 date functions

//----------------------------------------------------------------------------//

function Main()

   local dDate := Date()
   local nJulian
   local nDay, nMonth, nYear

   MsgInfo( nJulian := Greg2Julian( 25, 11, -4713 ) )   // day, month, year

   Julian2Greg( nJulian, @nDay, @nMonth, @nYear )

   MsgInfo( "Day: "   + Str( nDay ) )
   MsgInfo( "Month: " + Str( nMonth ) )
   MsgInfo( "Year: "  + Str( nYear ) )

   MsgInfo( Time() )                      // current time

   MsgInfo( DoW() )

   MsgInfo( Day( dDate ) )

   MsgInfo( Month( dDate ) )

   MsgInfo( Year( dDate ) )

   MsgInfo( Date() )

return nil

//----------------------------------------------------------------------------//
